home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dark Star 2
/
Dark_Star_02_1995_-_de_Side_A.d64
/
.programmlisten<
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
14KB
|
467 lines
9 dimd$(200,3):poke53280,0:poke53281,0:poke646,6:poke24,0
10 gosub70:goto100
20 poke198,0:wait198,1:gete$
21 ife$=chr$(133)thenreturn
22 goto20
25 poke198,0:wait198,1:gete$
26 ife$=chr$(136)thenreturn
27 goto25
40 e$="":zu=1
41 poke214,r:poke211,s:sys58640:z=0
42 poke204,0:get a$:if a$=""goto42
43 if asc(a$)=64 then zu=0
44 ifzu=0 and asc(a$)=13 then print".":poke204,1:zu=1:goto 63
46 if asc(a$)=44 goto 42
47 if asc(a$)=13 and len(e$)<>l then print" ":goto54
48 if asc(a$)=13 and len(e$)=l then print" ":goto54
49 if asc(a$)=20 then print".":goto 55:rem inst/del-taste
50 if len(e$)=l goto 42
51 if asc(a$)<32 or asc(a$)>90 goto 42
52 print a$;:e$=e$+a$:z=z+1
53 goto 42
54 poke204,1:return
55 poke204,1:if len(e$)=0 then a$="":goto 40
56 if len(a$)=0 goto 42
57 if z=0 goto 42
58 poke204,1:a$=left$(a$,len(a$)-1)
59 e$=left$(e$,len(e$)-1)
60 poke214,r:poke211,s:sys58640
61 print e$;:z=z-1
62 poke 214,r:poke211,s+len(e$):sys58640:goto 42
63 return
70 s1$="":r1$="":r2$=""
71 s2$=s1$+"datendisk in floppy drueck f 1":r3$=""
72 s3$=s1$+" bitte warten ":r4$=""
73 s4$=s1$+"floppy-fehler drueck f 7"
74 s5$=s1$+" ":r5$="":r6$=""
75 s6$=s1$+"falsche eingabe drueck f 1"
76 s7$=s1$+"keine daten vorhanden drueck f 1"
77 s8$=s1$+"datenende drueck f 1"
78 s9$=s1$+" drucker in betrieb "
79 return
80 fori=5to22:poke781,i:sys59903:next:return
90 poke768,61:open1,4,7:print#1,"";:close1:poke768,139
91 ifst<>-128thenreturn
92 prints1$:print"[145]drucker anschliessen drueck f 1":gosub20:goto1100
100 print"[147]"
101 print" [154][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][146]"
102 print" [154][214] [214][146]"
103 print" [154][214] programmlisten erstellen [214][146]"
104 print" [154][214] [214][146]"
105 print" [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][146]"
110 print" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][178][192][192][192][192][192][192][179]"
111 print" [194] [194] [194] [194]"
112 print" [194] liste eingeben [194] 1 [194] [194]"
113 print" [194] [194] [194] [194]"
114 print" [194] liste ausgeben [194] 2 [194] [194]"
115 print" [194] [194] [194] [194]"
116 print" [194] liste einlesen [194] 3 [194] [194]"
117 print" [194] [194] [194] [194]"
118 print" [194] liste speichern [194] 4 [194] [194]"
119 print" [194] [194] [194] [194]"
120 print" [194] disk-operationen [194] 5 [194] [194]"
121 print" [194] [194] [194] [194]"
122 print" [194] programmende [194] 6 [194] [194]"
123 print" [194] [194] [194] [194]"
124 print" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][177][192][192][192][192][192][192][179]"
130 poke198,0:wait198,1:gete$
131 ife$="1"thengosub140:goto200
132 ife$="2"thengosub141:gosub160:goto300
133 ife$="3"thengosub142:goto1600
134 ife$="4"thengosub143:gosub160:goto1500
135 ife$="5"thengosub144:goto1400
136 ife$="6"thengosub145:goto5000
138 goto130
140 print"":gosub150:return
141 print"":gosub150:return
142 print"":gosub150:return
143 print"":gosub150:return
144 print"":gosub150:return
145 print"":gosub150:return
150 printtab(33)"_":fori=1to1000:next:return
160 ifd$(d,1)=""thenprints7$:gosub20:goto100
161 return
200 print"[147] [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
201 print" [154]* *"
202 print" [154]* daten eingabe *"
203 print" [154]* *"
204 print" [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
205 d=d+1:prints5$
206 gosub210:printr4$;tab(13);d;tab(32);300-d;:goto222
210 printr3$:pp=0
211 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
212 print" [194] [194]"
213 print" [194]datensatz.: noch vorhanden [194]"
214 print" [194] [194]"
215 print" [194]1) prg.-titel : ................ [194]"
216 print" [194] [194]"
217 print" [194]2) kategorie : .................. [194]"
218 print" [194] [194]"
219 print" [194]3) blocks : ... [194]"
220 print" [194] [194]"
221 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":return
222 r=13:s=18:l=16:gosub40:d$(d,1)=e$
223 iflen(d$(d,1))<=0then222
224 ifpp=1thenreturn
225 r=15:s=18:l=18:gosub40:d$(d,2)=e$
226 iflen(d$(d,2))<=0thend$(d,2)="-"
227 ifpp=1thenreturn
229 r=17:s=18:l=3:gosub40:d$(d,3)=e$
230 iflen(d$(d,3))<=0thend$(d,3)="-"
231 ifpp=1thenreturn
233 prints1$:print"[145]weiter f 1 korrektur f 3 menue f 7"
234 poke198,0:wait198,1:gete$
235 ife$=chr$(133)then205
236 ife$=chr$(134)then240
237 ife$=chr$(136)then100
238 goto234
240 prints1$:print"[145]welche zeile (1-3) keine aenderung f 1":pp=1
241 poke198,0:wait198,1:gete$
242 ife$="1"thengosub222:goto250
243 ife$="2"thengosub225:goto250
244 ife$="3"thengosub229:goto250
245 ife$=chr$(133)then233
246 goto241
250 prints1$:print"[145]noch aendern f 1 keine aenderung f 3"
251 poke198,0:wait198,1:gete$
252 ife$=chr$(133)then240
253 ife$=chr$(134)then233
254 goto251
260 prints2$:gosub20:prints3$
261 open1,8,15,"s:"+a$:close1
262 x=0:open2,8,15:open1,8,2,+a$+",s,w":input#2,x
263 ifx=0then265
264 ifx>0thenclose2:close1:close15:prints4$:gosub25:goto100
265 print#1,d:forj=1tod:form=1to3
266 print#1,d$(j,m):nextm,j:close2:close3:close15:return
269 prints2$:gosub20:prints3$
270 x=0:open2,8,15:open1,8,2,+a$+",s,r":input#2,x
271 ifx=0then273
272 ifx>0thenclose2:close1:close15:prints4$:gosub25:goto100
273 input#1,d:forj=1tod:form=1to3
274 input#1,d$(j,m):nextm,j:close2:close1:close15:return
300 print"[147] [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
301 print" [154]* *"
302 print" [154]* daten ausgabe *"
303 print" [154]* *"
304 print" [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
309 gosub1000
310 gosub80:gosub210:forb=1tod:gosub350
311 prints1$:print"[145]weiter f 1 beenden f 3"
312 poke198,0:wait198,1:gete$
313 ife$=chr$(133)then317
315 ife$=chr$(134)then309
316 goto312
317 gosub210:next
318 prints1$:prints8$:gosub20:goto300
340 gosub1000
350 print""
351 printtab(13);b;tab(32);300-b:print
352 printtab(18);d$(b,1):print
353 ifleft$(d$(b,2),1)="-"thend$(b,2)=""
354 printtab(18);d$(b,2):print
355 ifleft$(d$(b,3),1)="-"thend$(b,3)=""
356 printtab(18);d$(b,3):return
370 l=1:b(l)=d+1:m=1
371 j=b(l):i=m-1
372 ifj-m<3then386
373 m1=int((i+j)/2)
374 i=i+1
375 ifi=jthen382
376 ifd$(i,1)<=d$(m1,1)then374
377 j=j-1
378 ifi=jthen382
379 ifd$(j,1)>=d$(m1,1)then377
380 forz=1to3:d$(o,z)=d$(i,z):d$(i,z)=d$(j,z):d$(j,z)=d$(o,z):next
381 goto374
382 ifi>=m1theni=i-1
383 ifj=m1then385
384 forz=1to3:d$(o,z)=d$(i,z):d$(i,z)=d$(m1,z):d$(m1,z)=d$(o,z):next
385 l=l+1:b(l)=i:goto371
386 ifj-m<2then389
387 ifd$(m,1)<d$(m+1,1)then389
388 forz=1to3:d$(o,z)=d$(m,z):d$(m,z)=d$(m+1,z):d$(m+1,z)=d$(o,z):next
389 m=b(l)+1:l=l-1
390 ifl>0then371
391 return
1000 gosub80:prints5$;r1$
1001 printtab(5)"ausgabe einzeln f 1 [146]"
1002 printtab(5)"ausgabe gesamt f 3 [146]"
1003 printtab(5)"ausdrucken f 5 [146]"
1004 printtab(5)"zum hauptmenue f 7 [146]"
1005 poke198,0:wait198,1:gete$
1006 ife$=chr$(133)then1020
1007 ife$=chr$(134)then1011
1008 ife$=chr$(136)then100
1009 ife$=chr$(135)then2000
1010 goto1005
1011 gosub80:prints5$;r1$:printtab(5)"ausgabe normal f 1 [146]"
1012 printtab(5)"ausgabe sortiert f 3 [146]"
1013 printtab(5)"zum untermenue f 7 [146]"
1014 poke198,0:wait198,1:gete$
1015 ife$=chr$(133)then310
1016 ife$=chr$(134)thenprints3$:gosub370:goto310
1017 ife$=chr$(136)then1000
1018 goto1014
1020 gosub80:prints5$:printr5$
1021 printtab(7)"suchen datennummer f 1 [146]"
1022 printtab(7)"suchen prg.titel f 3 [146]"
1023 printtab(7)"listen prg.titel f 5 [146]"
1024 printtab(7)"zum untermenue f 7 [146]"
1025 poke198,0:wait198,1:gete$
1026 ife$=chr$(133)thengosub1040:goto1200
1027 ife$=chr$(134)thengosub1060:goto1200
1028 ife$=chr$(136)then1000
1029 ife$=chr$(135)then1080
1030 goto1025
1040 printr2$:printtab(7)"geben sie die gesuchte"
1042 printtab(7)"datennummer ein."
1043 printtab(7)"zum untermenue mit * [146]"
1044 printtab(7)"datennummer : ..."
1045 r=20:s=21:l=3:gosub40:za$=e$:za=val(za$):ifza$="*"then1000
1046 iflen(za$)<=0then1045
1048 forb=1tod
1049 ifza=bthenreturn
1050 ifza<=0thenprints6$:gosub20:gosub80:prints5$:goto1040
1051 next:prints7$:gosub20:goto1020
1060 printr2$:printtab(7)"geben sie den gesuchten"
1062 printtab(7)"programm-titel ein."
1063 printtab(7)"zum untermenue mit * [146]"
1064 printtab(7)"prg.-titel: ................"
1065 r=20:s=19:l=16:gosub40:za$=e$:ifza$="*"then1000
1066 iflen(za$)<=0thenprints6$:gosub20:gosub80:prints5$:goto1060
1068 forb=1tod
1069 ifza$=d$(b,1)thenreturn
1070 ifza$=left$(d$(b,1),1)orza$=left$(d$(b,1),2)orza$=left$(d$(b,1),3)thenreturn
1071 ifza$=left$(d$(b,1),4)orza$=left$(d$(b,1),5)orza$=left$(d$(b,1),6)thenreturn
1072 next:prints7$:gosub20:goto1020
1080 gosub80:printr6$:v=0:forb=1tod:v=v+1:
1082 printtab(5);"nr.:";b;tab(15)"titel : ";d$(b,1)
1085 ifv=15then1087
1086 next:prints8$:gosub20:goto1020
1087 prints1$:print"[145]weiter f 1 beenden f 5"
1090 poke198,0:wait198,1:gete$
1091 ife$=chr$(133)thenv=0:gosub80:printr6$:goto1086
1093 ife$=chr$(135)then1020
1094 goto1090
1100 gosub80:prints5$;r1$
1101 printtab(10)"schalten sie bitte"
1102 printtab(10)"den drucker ein ."
1103 printtab(10)"drueck f 1 [146]"
1104 printtab(10)"oder menue f 7 [146]"
1105 poke198,0:wait198,1:gete$
1106 ife$=chr$(133)thengosub90:return
1107 ife$=chr$(136)then1000
1108 goto1105
1200 gosub80:gosub210:gosub350
1210 prints1$:print"[145]weiter f 1 korrektur f 3 loeschen f 5"
1211 poke198,0:wait198,1:gete$
1212 ife$=chr$(133)then1020
1213 ife$=chr$(134)then1350
1214 ife$=chr$(135)then4500
1215 goto1211
1300 r=13:s=18:l=16:gosub40:d$(b,1)=e$
1301 iflen(d$(b,1))<=0then1300
1302 return
1305 r=15:s=18:l=18:gosub40:d$(b,2)=e$
1306 iflen(d$(b,2))<=0thend$(b,2)="-"
1307 return
1310 r=17:s=18:l=3:gosub40:d$(b,3)=e$
1311 iflen(d$(b,3))<=0thend$(b,3)="-"
1312 return
1350 prints1$:print"[145]welche zeile 1 - 3 beenden f 1"
1356 poke198,0:wait198,1:gete$
1357 ife$="1"thengosub1300:goto1370
1358 ife$="2"thengosub1305:goto1370
1359 ife$="3"thengosub1310:goto1370
1360 ife$=chr$(133)then1020
1361 goto1356
1370 prints1$:print"[145]noch korrigieren f 1 beenden f 3"
1371 poke198,0:wait198,1:gete$
1372 ife$=chr$(133)thengosub210:gosub350:goto1350
1374 ife$=chr$(134)then1020
1375 goto1371
1400 print"[147]":prints5$:print" [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
1401 print" [154]* *"
1402 print" [154]* disk-operationen *"
1403 print" [154]* *"
1404 print" [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
1410 printtab(5)"diskette formatieren f 1 [146]"
1411 printtab(5)"diskette validieren f 3 [146]"
1412 printtab(5)"datei scratchen f 5 [146]"
1413 printtab(5)"directory einlesen f 2 [146]"
1414 printtab(5)"zum hauptmenue f 7 [146]"
1415 poke198,0:wait198,1:gete$
1416 ife$=chr$(133)then1430
1417 ife$=chr$(134)then1460
1418 ife$=chr$(135)then1700
1419 ife$=chr$(136)then100
1420 ife$=chr$(137)then4000
1421 goto1415
1430 printtab(5)"keine formatierung * [146]"
1431 printtab(5)"nur return [146] bei id=weiche form."
1432 printtab(5)"diskname : ................"
1433 printtab(5)"id-nummer: .."
1435 r=19:s=16:l=16:gosub40:za$=e$:ifza$="*"then1400
1436 iflen(za$)<=0then1435
1437 r=20:s=16:l=2:gosub40:z1$=e$:ifz1$="*"then1400
1438 ifz1$=""thenz1$="":goto1441
1440 z1=val(z1$):ifz1<=0then1437
1441 za$=za$+","+z1$
1445 prints2$:gosub20:prints1$:print"[145]diskette wird formatiert bitte warten"
1447 x=0:open15,8,15,"n:"+za$:input#15,x:gosub1448:close15:goto1450
1448 ifx=0thenreturn
1449 ifx>0thenprints4$:close15:gosub25:goto1400
1450 prints1$:print"[145]formatierung abgeschlossen drueck f 1"
1452 gosub80:printr3$:print" directory ausgabe "
1453 open3,8,0,"$"+dr$:get#3,x$,y$:get#3,x$,y$:get#3,x$,y$:printr4$
1454 printtab(8);chr$(48-(x$>""));" ";:fori=1to23:get#3,x$:printx$;:next:close3
1455 prints1$:print"[145]zum disk-menue drueck f 1":gosub20:goto1400
1460 prints2$:gosub20:prints1$:print"[145] valdidate wird durchgefuehrt ":x=0
1461 open15,8,15,"v":input#15,x:gosub1448:close15
1462 prints1$:print"[145]valdidate durchgefuehrt drueck f 1":gosub20:goto1400
1500 gosub80:prints5$;r1$
1501 printtab(5)"speichern unter"
1502 printtab(5)"programm-dateinamen f 1 [146]"
1503 printtab(5)"speichern mit"
1504 printtab(5)"neuem dateinamen f 3 [146]"
1505 printtab(5)"zum menue zurueck f 7 [146]"
1506 poke198,0:wait198,1:gete$
1507 ife$=chr$(133)thena$="neue list/dru":gosub260:goto100
1508 ife$=chr$(134)thengosub1520:gosub260:goto100
1509 ife$=chr$(136)then100
1510 goto1006
1520 printtab(5)"geben sie den neuen"
1521 printtab(5)"dateinamen ein."
1522 printtab(5)"dateinamen : ................"
1523 r=20:s=18:l=16:gosub40:a$=e$
1524 iflen(a$)<=0then1523
1525 return
1600 gosub80:prints5$;r1$
1601 printtab(5)"einlesen unter"
1602 printtab(5)"programm-dateinamen f 1 [146]"
1603 printtab(5)"einlesen mit"
1604 printtab(5)"neuem dateinamen f 3 [146]"
1605 printtab(5)"zum menue zurueck f 7 [146]"
1606 poke198,0:wait198,1:gete$
1607 ife$=chr$(133)thena$="neue list/dru":gosub269:goto100
1608 ife$=chr$(134)thengosub1620:gosub269:goto100
1609 ife$=chr$(136)then100
1610 goto1606
1620 printtab(5)"geben sie den "
1621 printtab(5)"dateinamen ein."
1622 printtab(5)"dateinamen : ................"
1623 r=20:s=18:l=16:gosub40:a$=e$
1624 iflen(a$)<=0then1563
1625 return
1700 gosub80:prints5$;r1$
1701 printtab(5)"sratchen der"
1702 printtab(5)"programm-datei f 1 [146]"
1703 printtab(5)"sratchen des"
1704 printtab(5)"neuen dateinamens f 3 [146]"
1705 printtab(5)"zum untermenue f 7 [146]"
1706 poke198,0:wait198,1:gete$
1707 ife$=chr$(133)thena$="neue list/dru":goto1720
1708 ife$=chr$(134)thengosub1620:goto1720
1709 ife$=chr$(136)then1400
1710 goto1706
1720 x=0:prints2$:gosub20:open15,8,15,"s:"+a$:close15
1721 prints1$:print"[145]programm name geloescht drueck f 1":gosub20:goto1400
2000 gosub1100
2010 gosub80:prints5$;r1$:printtab(5)"liste ausdrucken f 1 [146]"
2011 printtab(5)"anschrift eingeben f 3 [146]"
2012 printtab(5)"anschrift beibehalten f 5 [146]"
2013 printtab(5)"datum eingeben f 7 [146]"
2015 poke198,0:wait198,1:gete$
2016 ife$=chr$(133)thengosub90:open1,4:gosub2080:goto2070
2017 ife$=chr$(134)thengosub2029:goto2010
2018 ife$=chr$(135)thengosub2060:open1,4:goto2070
2019 ife$=chr$(136)thengosub2040:goto2010
2020 goto2015
2029 printtab(5)"nachname : ...................."
2030 printtab(5)"vorname : ...................."
2031 printtab(5)"strasse : ...................."
2032 printtab(5)"plz :.... ort: ................"
2033 r=17:s=16:l=20:gosub40:a1$=e$
2034 r=18:s=16:l=20:gosub40:a2$=e$
2035 r=19:s=16:l=20:gosub40:a3$=e$
2037 r=20:s=10:l=4:gosub40:a4$=e$
2038 r=20:s=20:l=16:gosub40:a5$=e$
2039 return
2040 printtab(5)"geben sie das "
2041 printtab(5)"heutige datum ein."
2042 printtab(5)"datum : .. .. .."
2045 r=20:s=13:l=2:gosub40:d1$=e$:d1=val(d1$)
2046 iflen(d1$)<=0orlen(d1$)<>2ord1<=0ord1>31then2045
2050 r=20:s=16:l=2:gosub40:d2$=e$:d2=val(d2$)
2051 iflen(d2$)<=0orlen(d2$)<>2ord2<=0ord2>12then2050
2055 r=20:s=19:l=2:gosub40:d3$=e$:d3=val(d3$)
2056 iflen(d3$)<=0orlen(d3$)<>2ord3<=84ord3>99then2055
2057 d$=d1$+"."+d2$+".19"+d3$:return
2060 ifa1$=""thenprints7$:gosub20:goto2010
2070 iflen(a1$)<=0then2076
2072 print#1,spc(5);chr$(14);a2$;" ";a1$;chr$(15)
2073 print#1,spc(10);a3$
2075 print#1,spc(10);a4$;" ";a5$:print#1
2076 iflen(d$)<=0then2100
2077 print#1,spc(10)"datum : ";chr$(14);d$;chr$(15):print#1:goto2100
2080 prints9$:print#1,chr$(14);spc(15)"neuheiten";chr$(15):print#1:return
2100 q1$="prg.name kategorie blocks"
2102 q2$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
2110 gosub2115:goto2117
2115 print#1,spc(10);q1$:print#1,spc(10);q2$:print#1:return
2117 v=0:forb=1tod:v=v+1
2120 x1=len(d$(b,1)):x=18-x1
2121 x2=len(d$(b,2)):y=20-x2
2125 ifv=60then2150
2130 print#1,spc(10);d$(b,1);spc(x);d$(b,2);spc(y);d$(b,3)
2140 next:print#1:close1:prints8$:gosub20:goto1000
2150 prints1$:print"[145]papier wechseln drueck f 1":gosub20:v=0:gosub2115:prints9$
2151 goto2140
4000 gosub4001:print"[147]":prints2$:gosub20:printx1$:print"":goto4016
4001 x1$=s1$+" directory ":return
4016 w=0:q=0:z=0:c=0:open1,8,0,"$0":get#1,a$,b$
4050 get#1,a$,b$:get#1,a$,b$:c=0
4060 ifa$<>""thenc=asc(a$)
4070 ifb$<>""thenc=c+asc(b$)*256
4080 z=z+1:printtab(5)mid$(str$(c),1);tab(9);
4090 get#1,b$:ifst<>0then4190
4100 ifb$<>chr$(34)then4090
4110 w=w+1:ifw>1then4140
4120 print"";:get#1,b$:ifb$<>chr$(34)thenprintb$;
4130 q=q+1:ifq<16then4120:goto4150
4140 get#1,b$:ifb$<>chr$(34)thenprintb$ ;:goto4140
4150 get#1,b$:ifb$=chr$(34)then4150
4160 printtab(25);:c$=""
4170 c$=c$+b$:get#1,b$:ifb$<>""then4170
4180 printleft$(c$,3)
4181 ifz=16thengosub4200:z=0:goto4080
4190 ifst=0then4050
4191 print"blocks free":close1
4192 prints1$:print"[145]directory ende drueck f 1":gosub20:goto1400
4200 prints1$:print"[145]weiter f 1 beenden f 3"
4201 poke198,0:wait198,1:gete$
4202 ife$=chr$(133)thenprint"[147]":printx1$:print"":return
4203 ife$=chr$(134)thenclose1:goto1400
4204 goto4201
4500 prints1$:print"[145]nicht loeschen f 1 loeschen f 3"
4501 poke198,0:wait198,1:gete$
4502 ife$=chr$(133)then1210
4503 ife$=chr$(134)then4510
4504 goto4501
4510 y=0:j=0:fory=btod:forj=1to3:d$(y,j)=d$(y+1,j):nextj,y
4511 forj=1to3:d$(d,j)=" ":next:d=d-1
4512 prints1$:print"[145]datensatz geloescht drueck f 1":gosub20:goto309
5000 print"[147] [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
5001 print" [154]* *"
5002 print" [154]* programm e n d e *"
5003 print" [154]* *"
5004 print" [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
5005 printtab(6)"programm beenden [1]"
5006 printtab(6)"programm wiederholen [2]"
5008 poke198,0:wait198,1:gete$
5009 ife$="1"thensys64760
5010 ife$="2"then100
5012 goto5008
0